1000 REM *********************
1010 REM * HIDDEN GRAPHICS 2 *
1020 REM *   BY MIKE BENN    *
1030 REM *      DEMO         *
1040 REM *                   *
1050 REM *********************
1060 REM
1070 REM LOAD MACHINE CODE
1080 REM
1090 X=X+1:IFX=1THENLOAD"HG2 MC",8,1
1100 REM
1110 REM POKE CHARACTER DATA
1120 REM
1130 GOSUB1670
1140 REM
1150 REM MAIN PROGRAM
1160 REM
1170 REM LOAD SCREEN 1
1180 REM
1190 SYS52600,"HG DATA BLOCK",8,41000
1200 REM
1210 REM LOAD SCREEN 2
1220 REM
1230 SYS52600,"HG DATA BLOCK",8,42000
1240 REM
1250 REM MULTICOLOUR
1260 REM
1270 SYS52603,40800,1,28,12,11,15,0
1280 REM
1290 FORI=0TO4:SYS52606,I,1,8:NEXT
1300 GETK$:IFK$=""THEN1300
1310 FORI=0TO4:SYS52606,I,I+1,8:NEXT
1320 GETK$:IFK$=""THEN1320
1330 FORI=8TO15:SYS52606,0,1,I
1340 GETK$:IFK$=" "THEN1370
1350 FORDE=0TO150:NEXT:NEXT
1360 GOTO1330
1370 FORI=1TO5:SYS52606,4,I,8
1380 FORDE=0TO150:NEXT:NEXT
1390 GETK$:IFK$=" "THEN1440
1400 GOTO1370
1410 REM
1420 REM HIRES
1430 REM
1440 SYS52603,40800,0,28,12,11,15,0
1450 FORI=0TO4:SYS52606,I,I+1,I+1:NEXT
1460 GETK$:IFK$=""THEN1460
1470 REM
1480 REM **************************
1490 REM * TO CONTOL NEXT PART OF *
1500 REM * DEMO PRESS THESE KEYS  *
1510 REM *                        *
1520 REM * PRESS '+' TO INCREASE  *
1530 REM * PRESS '-' TO DECREASE  *
1540 REM * PRESS SPACE TO ESCAPE  *
1550 REM **************************
1560 REM
1570 X=1
1580 SYS52603,40800,0,28,12,11,15,0
1590 GETK$:IFK$="+"THENX=X+1
1600 IFK$="-"THENX=X-1
1610 IFK$=" "THEN1650
1620 IFX<1THENX=1
1630 SYS52606,2,X,8
1640 GOTO1590
1650 SYS52609
1660 END
1670 BL=8:LN=1720:SA=12288
1680 FORL=0TOBL:CX=0:FORD=0TO15
1690 READA:IFA>255THENPRINT"NUMBER TO LARGE";LN+(L*10):STOP
1700 CX=CX+A:POKESA+L*16+D,A:NEXTD
1710 READ A:IF A><CX THENPRINT"ERROR IN LINE";LN+(L*10):STOP
1720 NEXTL:RETURN
1730 DATA 0,0,85,85,85,85,85,85,255,255,170,170,170,170,170,170,2040
1740 DATA 171,171,107,107,91,91,87,87,255,255,106,106,90,90,86,86,1986
1750 DATA 171,171,171,171,171,171,171,171,255,255,171,171,171,171,171,171,2904
1760 DATA 85,85,85,85,85,85,85,85,0,12,12,60,12,12,12,12,812
1770 DATA 12,12,12,63,0,0,0,0,60,60,195,195,3,12,12,48,684
1780 DATA 48,192,255,255,0,0,0,0,0,60,60,195,195,3,60,60,1383
1790 DATA 3,195,195,60,60,0,0,0,0,12,12,60,60,60,204,204,1125
1800 DATA 204,255,255,12,0,0,0,0,0,255,255,192,192,60,60,3,1743
1810 DATA 195,195,60,60,0,0,0,0,0,0,0,0,0,0,0,0,510